home *** CD-ROM | disk | FTP | other *** search
- ;
- ; LIST.DAT : âèâXâgé≡æÇì∞é╖éΘïKæÑ
- ;
- ((first (X . Y) X))
-
- ((rest (X . Y) Y))
-
- ((add-to-list X L (X . L)))
-
- ((delete X (Y . L) (Y . Z)) (delete X L Z))
- ((delete X (X . L) L))
-
- ((append (U . X) Y (U . Z)) (append X Y Z))
- ((append nil X X))
-
- ((member X (Y . L)) (member X L))
- ((member X (X . L)))
-
- ((select X (Y . L) (Y . Z)) (select X L Z))
- ((select X (X . L) L))
-
- ((perm X (Z . L)) (select Z X Y) (perm Y L))
- ((perm nil nil))
-
- ; end of file
-